functor
import
   Tk 
define
   W={New Tk.toplevel tkInit(width:150 height:150)}
%   {W tk(configure background:purple)}

   Styles = [groove ridge flat sunken raised]
   Frames = {Map Styles 
                fun {$ R}
                   {New Tk.frame tkInit(parent: W
                                        width: 3#c
                                        height: 1#c
                                        relief: R
                                        borderwidth: 2)}
                end}

   {Tk.send pack(b(Frames) side: left padx: 4 pady: 4)}
end
